Only lusers assume that O_RDONLY == 0.

diff --git a/src/lread.c b/src/lread.c
index d2b6a84304d0a963f4915fbf4d0e8c7b93e6d3ed..babeaa286820aca6109584df50775b4b82169c91 100644 (file)
--- a/src/lread.c
+++ b/src/lread.c
@@ -1,5 +1,5 @@
 /* Lisp parsing and input streams.
-   Copyright (C) 1985, 1986, 1987, 1988, 1989,
+   Copyright (C) 1985, 1986, 1987, 1988, 1989, 
    1993, 1994 Free Software Foundation, Inc.
 
 This file is part of GNU Emacs.
@@ -562,7 +562,7 @@ openp (path, str, suffix, storeptr, exec_only)
              if (exec_only)
                fd = (access (fn, X_OK) == 0) ? 1 : -1;
              else
-               fd = open (fn, 0, 0);
+               fd = open (fn, O_RDONLY, 0);
 
              if (fd >= 0)
                {